erase eadmini.txt 
sele retencao
legal(8,6,22,78,'Exportacao de Dados Contabeis')
mperiodo = space(7)
mcontador = 0
@ 10,8 say 'Periodo    :' get mperiodo pict '@!'
read
if empty(mperiodo)
    retu 
endif
marquivo = 'ADMI' + left(mperiodo,2) + right(mperiodo,2) + '.272'
sele notasa
go top
while .not. eof()
       sele notasa
       if mperiodo # right(dtoc(emissao),7)
          skip
          loop
       endif
       @ 11,8 say 'Nota    : ' + str(numero,6)
       mcliente = cliente
       sele clientes
       seek mcliente
       mmunicipio = left(cidade,20)
       mcnpj      = cgc 
       @ 12,8 say 'Cliente : ' + str(mcliente,6) + ' ' + nome
       sele notasa
       mregistro  = '1'
       mregistro += strzero(day(emissao),2) + strzero(month(emissao),2)
       mregistro += right(dtoc(emissao),2)
       mregistro += '3  '
       mregistro += strzero(numero,6)
       mregistro += strzero(numero,6)
       mregistro += '9997' // 9101 Dentro do estado 9102 Fora do estado
       mregistro += '0'
       mregistro += strzero(total,14,2)
       mregistro += strzero(aliqiss,5,2)
       mregistro += strzero(iss,14,2)
       mregistro += space(40)               
       mregistro += space(5) 
       mregistro += space(3)  // classificador contabil
       mregistro += strzero(total,14,2)
       mregistro += space(14)                
       mregistro += space(14)
       mregistro += strzero(total,14,2)
       mregistro += strzero(total,14,2)
       mregistro += strzero(vmaterial,14,2)
       mregistro += repli('0',14)
       mregistro += repli('0',14)
       mregistro += mmunicipio
       mregistro += mcnpj 
       mregistro += strzero(valorret1,14,2)
       mregistro += strzero(valorret2,14,2)
       mregistro += 'NFS'
       mregistro += '00,00'
       mregistro += repli('0',14)
       if cancela # 'S'
          mregistro += 'T'
       else
          mregistro += '3'
       endif
       mregistro += 'D'
       if iss > 0
          mregistro += 'S' //
       else
          mregistro += 'N' //
       endif
       mregistro += strzero(iss,14,2)
       mregistro += ' '
       mregistro += '001708'
       mregistro += '5001'                 
       mregistro += space(6) // posicao 333 - cod rec pis/cofins
       if iss > 0 
          mregistro += '1'
       else
          mregistro += '0'
       endif
       set devi to printer
       set printer to &marquivo additive
       if mcontador = 0
          @ prow(),0   say mregistro
       else
          @ prow()+1,0 say mregistro
       endif
       mcontador = 1
       set printer to
       set devi to screen
       sele notasa
       skip
enddo
retu




